module double_p
  implicit none
  integer, parameter :: dbp = 8
end module double_p
